home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8701.d64 / dir fast (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  150b  |  6 lines
  1. 1000 OPEN1,8,0,"$":POKE781,1:SYS65478:GETA$,A$
  2. 1010 GETA$,A$:IFST=64THENSYS65484:CLOSE1:RETURN
  3. 1020 GETA$,B$:PRINT"[157]"ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0));
  4. 1030 GETA$:PRINTA$;:IFA$<>""THEN1030
  5. 1040 PRINT:GOTO1010
  6.